home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / Yerk 3.64 / Asm source / buildops < prev    next >
Encoding:
Text File  |  1986-03-14  |  687 b   |  28 lines  |  [TEXT/YERK]
  1. \ Build Ops                 Reese Warner                    4/85
  2.  
  3. 50 dictionary operands
  4.  
  5. : BuildOps      { \ opPtr -- }
  6.     query: topfile drop
  7.     BEGIN
  8.         word" count put: token
  9.         heap> operand -> opPtr
  10.         @word number drop setMode: opPtr  \ get mode
  11.         @word number drop setReg: opPtr   \ get register
  12.         opPtr token enter: operands
  13.         query: topfile
  14.     UNTIL
  15. ;
  16.  
  17. : LoadOps       { addr len -- }
  18.     new: loadfile addr len name: topFile \ open "operands"
  19.     open: topFile
  20.     0<
  21.     IF
  22.         206 asmError                     \ check for bad file
  23.     THEN
  24.     buildops
  25.     close: topFile drop                  \ close operands
  26.     remove: loadFile
  27. ;
  28.